home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / MAKE EMUDISK.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  21 lines
  1. 10  REM  **********************
  2. 20  REM  *                    *
  3. 30  REM  *    MAKE EMUDISK    *
  4. 40  REM  *                    *
  5. 50  REM  *    BY KEN MANLY    *
  6. 60  REM  *                    *
  7. 70  REM  * COPYRIGHT (C) 1983 *
  8. 80  REM  * BY MICROSPARC, INC *
  9. 90  REM  * LINCOLN, MA. 01773 *
  10. 100  REM *                    *
  11. 110  REM **********************
  12. 120  IF ( PEEK(47032) < >167)  THEN  PRINT  CHR$(4)"BRUN RAM DISK"
  13. 130  HOME : VTAB 6: PRINT "THIS PROGRAM WILL PREPARE A DISK FOR USE": PRINT "     WITH RAM DISK (EMU)"
  14. 140  PRINT : FLASH : PRINT " WARNING: ";: NORMAL : PRINT " THIS PROGRAM WILL DESTROY ALL": PRINT "       INFORMATION ON THE DISK!"
  15. 150  VTAB 22: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **": VTAB 14: HTAB 8: INPUT "SLOT?    ";SL$: ON SL$ = "" GOTO 210:SL =  VAL(SL$): IF SL <1  OR SL >6  THEN 150
  16. 160  VTAB 16: HTAB 8: INPUT "DRIVE?   ";DR$: ON DR$ = "" GOTO 210:DR =  VAL(DR$): IF DR <1  OR DR >2  THEN 160
  17. 170  VTAB 18: HTAB 8: INPUT "VOLUME?  ";VO$: ON VO$ = "" GOTO 210:VO =  VAL(VO$): IF VO <1  OR VO >254  THEN 170
  18. 180  PRINT : PRINT "  INSERT THE DISK AND HIT <RETURN>  ";: GET A$: PRINT : IF A$ < > CHR$(13)  THEN 210
  19. 190 D$ =  CHR$(4): PRINT D$"INITEMU,V"VO: PRINT D$"INITHELLO,S"SL",D"DR",V"VO: PRINT D$"UNLOCKEMU"
  20. 200  FOR EM = 1 TO 8: PRINT D$"SAVEEMU"EM",S"SL",D"DR: NEXT EM: PRINT D$"LOCKEMU": HOME : VTAB 8: PRINT "PREPARE ANOTHER DISK?  ";: GET A$: PRINT A$: IF A$ =  CHR$(89)  THEN 130
  21. 210  HOME : PRINT "GOODBYE": END